0 REM MOVE & FILL (JUNE 18/85)        :
1 :
2 REM 2 STATEMENTS, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 8
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM MOVE        MOV      8174    118
8 REM FILL        STUF     8504    119
9 :
10 REM U/MVMEM (8250/120)
11 REM U/MEMFIL (8416/121)
12 :
13 REM ================================
14 :
133 .ASC "MOV[197]FIL[204]"
1133 .WORD MOV-1,STUF-1
8174 MOV JSR $AD8A
8176 JSR $B7F7
8178 STA MVSTRT+1
8180 STY MVSTRT
8182 JSR $79
8184 PHA
8186 JSR $73
8188 JSR $AD8A
8190 JSR $B7F7
8192 PHA
8194 TYA
8196 PHA
8198 JSR $AEFD
8200 JSR $AD8A
8202 STA MVDEST+1
8204 STY MVDEST
8206 PLA
8208 TAY
8210 PLA
8212 TAX
8214 PLA
8216 CMP #";"
8218 BEQ MVC1
8220 STX MVEND+1
8222 STY MVEND
8224 CMP #","
8226 BEQ MVM2
8228 JMP $AF08
8230 MVC1 CLC
8232 TYA
8234 ADC MVSTRT
8236 STA MVEND
8238 TXA
8240 ADC MVSTRT+1
8242 STA MVEND+1
8244 BCC MVMEM
8246 JMP $B248
8248 ;
8250 MVMEM LDA MVEND
8252 BNE MVM1
8254 DEC MVEND+1
8256 MVM1 DEC MVEND
8258 ;
8260 MVM2 LDA MVSTRT
8262 STA $22
8264 LDA MVDEST
8266 STA $24
8268 LDA MVEND+1
8270 CMP MVSTRT+1
8272 BCC MVM5
8274 BNE MVM3
8276 LDA MVEND
8278 CMP MVSTRT
8280 BCC MVM5
8282 MVM3 LDA MVDEST+1
8284 CMP MVSTRT+1
8286 BCC DMVMEM
8288 BNE UMVMEM
8290 LDA $24
8292 CMP $22
8294 BEQ MVM5
8296 BCC DMVMEM
8298 UMVMEM LDA MVEND
8300 SEC
8302 SBC MVSTRT
8304 TAY
8306 LDA MVEND+1
8308 SBC MVSTRT+1
8310 PHA
8312 CLC
8314 ADC MVSTRT+1
8316 STA $23
8318 PLA
8320 CLC
8322 ADC MVDEST+1
8324 STA $25
8326 MVM4 LDA ($22),Y
8328 STA ($24),Y
8330 DEY
8332 CPY #$FF
8334 BNE MVM4
8336 LDA $23
8338 CMP MVSTRT+1
8340 BEQ MVM5
8342 DEC $23
8344 DEC $25
8346 JMP MVM4
8348 MVM5 RTS
8350 DMVMEM LDA MVSTRT+1
8352 STA $23
8354 LDA MVDEST+1
8356 STA $25
8358 LDA MVEND
8360 SEC
8362 SBC MVSTRT
8364 STA T2
8366 INC T2
8368 LDA MVEND+1
8370 SBC MVSTRT+1
8372 LDY #0
8374 TAX
8376 BEQ MVM7
8378 MVM6 LDA ($22),Y
8380 STA ($24),Y
8382 INY
8384 BNE MVM6
8386 INC $23
8388 INC $25
8390 DEX
8392 BNE MVM6
8394 MVM7 LDA ($22),Y
8396 STA ($24),Y
8398 INY
8400 CPY T2
8402 BNE MVM7
8404 RTS
8406 ;
8408 MVSTRT .WORD 0
8410 MVDEST .WORD 0
8412 MVEND .WORD 0
8414 ;
8416 MEMFIL CLC
8418 .BYTE $24
8420 MEMF1 SEC
8422 STY T3
8424 STA T4
8426 BCC MEMF3
8428 MEMF2 LDA $14
8430 SBC T3
8432 STA $14
8434 LDA $15
8436 SBC T4
8438 STA $15
8440 BCC MEMF7
8442 INC $14
8444 BNE MEMF3
8446 INC $15
8448 MEMF3 LDA $14
8450 CLC
8452 ADC T3
8454 TAY
8456 LDA $15
8458 ADC T4
8460 BCC MEMF4
8462 BNE MEMF8
8464 TYA
8466 BNE MEMF8
8468 MEMF4 TXA
8470 LDY #0
8472 LDX $15
8474 BEQ MEMF6
8476 MEMF5 STA (T3),Y
8478 INY
8480 BNE MEMF5
8482 INC T4
8484 DEX
8486 BNE MEMF5
8488 MEMF6 CPY $14
8490 BEQ MEMF7
8492 STA (T3),Y
8494 INY
8496 BNE MEMF6
8498 MEMF7 RTS
8500 MEMF8 JMP $B248
8502 ;
8504 STUF JSR $AD8A
8506 JSR $B7F7
8508 PHA
8510 TYA
8512 PHA
8514 JSR $79
8516 PHA
8518 JSR $73
8520 JSR $AD8A
8522 JSR $B7F7
8524 JSR $79
8526 BEQ STUF1
8528 JSR $AEFD
8530 JSR $B79E
8532 .BYTE $2C
8534 STUF1 LDX #0
8536 PLA
8538 TAY
8540 PLA
8542 STA T3
8544 PLA
8546 STA T4
8548 CPY #","
8550 BEQ MEMF2
8552 CPY #";"
8554 BEQ MEMF3
8556 JMP $AF08
8558 ;